unit AcompanhamentoCobrancaProgramada;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFormPesquisa, StdCtrls, DBCtrls, DB, DBTables, Grids, DBGrids,
  Buttons, ExtCtrls;

type
  TFPesquisaAcompanhamentoCobrProg = class(TFormPesquisa)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Qcliente: TQuery;
    DSApoio: TDataSource;
    ComboBox2: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox3: TComboBox;
    QPORTADOR: TQuery;
    DataSource1: TDataSource;
    QPLANO: TQuery;
    DataSource2: TDataSource;
    QEMPRESA: TQuery;
    procedure DBComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure BtnConsultarClick(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure BtnImprimirClick(Sender: TObject);
    procedure BtnLimparClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPesquisaAcompanhamentoCobrProg: TFPesquisaAcompanhamentoCobrProg;

implementation

uses RelatorioAcompanhamentoCobrancaProgramada;

{$R *.dfm}

procedure TFPesquisaAcompanhamentoCobrProg.DBComboBox1KeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
//  inherited;

end;

procedure TFPesquisaAcompanhamentoCobrProg.ComboBox1DropDown(
  Sender: TObject);
begin
//  inherited;
 QCLIENTE.Close;
 QCLIENTE.Open;
   with QCLIENTE do begin
    first;
     while not eof do begin
      combobox1.Items.Add(fieldbyname('cli_razao').AsString);
       next;
     end;
   end;
end;

procedure TFPesquisaAcompanhamentoCobrProg.ComboBox2DropDown(
  Sender: TObject);
begin
//  inherited;
 QPORTADOR.Close;
 QPORTADOR.Open;
   with QPORTADOR do begin
    first;
     while not eof do begin
      combobox2.Items.Add(fieldbyname('port_descricao').AsString);
       next;
     end;
   end;
end;

procedure TFPesquisaAcompanhamentoCobrProg.BtnConsultarClick(Sender: TObject);
begin

  qpesquisa.SQL.text;
  qpesquisa.Close;
  qpesquisa.SQL.Clear;
  qpesquisa.SQL.Add('select cobranca_programada.* ,TIPODOCUMENTO.TIPO_DOC_DESCRICAO ,TIPODOCUMENTO.TIPO_DOC_CODIGO,' );
  qpesquisa.SQL.Add(' CLIENTE.CLI_CODIGO ,CLIENTE.CLI_RAZAO ,PORTADOR.PORT_CODIGO,PORTADOR.PORT_DESCRICAO,'          );
  qpesquisa.SQL.Add(' PLANOCONTAS.DESCRICAO,PLANOCONTAS.CODIGO from cobranca_programada'                             );

  qpesquisa.SQL.Add(' INNER JOIN TIPODOCUMENTO ON TIPODOCUMENTO.TIPO_DOC_CODIGO = cobranca_programada.TIPODOCUMENTO' );
  qpesquisa.SQL.Add(' INNER JOIN CLIENTE       ON CLIENTE.CLI_CODIGO            = cobranca_programada.CLIENTE'       );
  qpesquisa.SQL.Add(' INNER JOIN PORTADOR      ON PORTADOR.PORT_CODIGO          = cobranca_programada.PORTADOR'      );
  qpesquisa.SQL.Add(' INNER JOIN PLANOCONTAS   ON PLANOCONTAS.CODIGO            = cobranca_programada.PLANO'         );

  qpesquisa.SQL.Add(' WHERE (1=1)');

  IF COMBOBOX1.Text <> '' THEN
  qpesquisa.SQL.Add(' AND (CLIENTE.CLI_RAZAO like '''+COMBOBOX1.TEXT+''')');

  IF COMBOBOX2.Text <> '' THEN
    qpesquisa.SQL.Add(' AND (PORTADOR.PORT_DESCRICAO like '''+COMBOBOX2.TEXT+''')');

  IF COMBOBOX3.Text <> '' THEN
    qpesquisa.SQL.Add(' AND (PLANOCONTAS.DESCRICAO like '''+COMBOBOX3.TEXT+''')');

  qpesquisa.SQL.Add(' ORDER BY CLI_RAZAO');

  qpesquisa.Open;

  LRegistros.Caption := 'Registro(s) encontrado(s): '+inttostr(QPesquisa.RecordCount);

  if QPesquisa.IsEmpty then
    Exit;

  BTNIMPRIMIR.ENABLED := TRUE;
end;

procedure TFPesquisaAcompanhamentoCobrProg.ComboBox3DropDown(
  Sender: TObject);
begin
//  inherited;
 QPLANO.Close;
 QPLANO.Open;
   with QPLANO do begin
    first;
     while not eof do begin
      combobox3.Items.Add(fieldbyname('descricao').AsString);
       next;
     end;
   end;
end;

procedure TFPesquisaAcompanhamentoCobrProg.ComboBox1Change(
  Sender: TObject);
begin
  inherited;
UpperCase(combobox1.Text);
end;

procedure TFPesquisaAcompanhamentoCobrProg.ComboBox2Change(
  Sender: TObject);
begin
  inherited;
UpperCase(combobox2.Text);
end;

procedure TFPesquisaAcompanhamentoCobrProg.ComboBox3Change(
  Sender: TObject);
begin
  inherited;
UpperCase(combobox3.Text);
end;

procedure TFPesquisaAcompanhamentoCobrProg.BtnImprimirClick(
  Sender: TObject);
begin
//  inherited;
  Application.CreateForm(TRelatorioAcompanhamentoCobrProg,RelatorioAcompanhamentoCobrProg);

 RelatorioAcompanhamentoCobrProg.QRelatorio.Close;
 RelatorioAcompanhamentoCobrProg.QRelatorio.SQL.Clear;
 RelatorioAcompanhamentoCobrProg.QRelatorio.SQL := QPesquisa.SQL;
 RelatorioAcompanhamentoCobrProg.QRelatorio.OPEN;
 Qempresa.Close;
 Qempresa.Open;

 RelatorioAcompanhamentoCobrProg.QRLNomeEmpresa.Caption   := Qempresa.fieldByname('Razao').AsString;
 RelatorioAcompanhamentoCobrProg.QRLSISTEMAMODULO.Caption := 'GESTAO EMPRESARIAL/FINANCEIRO';
 RelatorioAcompanhamentoCobrProg.QRLNomeRelatorio.Caption := 'ACOMPANHAMENTO DAS COBRANCAS PROGRAMADAS';

  RelatorioAcompanhamentoCobrProg.QuickRep1.Preview;
  RelatorioAcompanhamentoCobrProg.Destroy;
end;

procedure TFPesquisaAcompanhamentoCobrProg.BtnLimparClick(Sender: TObject);
begin
//  inherited;
  combobox1.Text := '';
  combobox2.Text := '';
  combobox3.Text := '';
  LRegistros.Caption := '';
  
end;

procedure TFPesquisaAcompanhamentoCobrProg.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  
  FPesquisaAcompanhamentoCobrProg := Nil;
  Action := cafree;

end;


end.
